home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 51 / Amiga Format CD51 (2000-03-10)(Future Publishing)(GB)[!][issue 2000-04].iso / -serious- / programming / e / powerd / source / examples / appmenuitem.d < prev    next >
Text File  |  2000-01-27  |  651b  |  26 lines
  1. /* AppMenuItem.d, loosely adapted from RKRM libraries 3rd ed. */
  2. /* translated from AppMenuItem.e */
  3.  
  4. OPT OSVERSION=37,NOSTD
  5.  
  6. MODULE 'wb'
  7.  
  8. DEF    myport,appitem,appmsg,WorkbenchBase
  9.  
  10. PROC main()
  11.     IF WorkbenchBase:=OpenLibrary('workbench.library',37)
  12.         IF myport:=CreateMsgPort()
  13.             IF appitem:=AddAppMenuItemA(0,0,'DisplayBeep()',myport,NIL)
  14.                 PrintF('Come on, go and see whats in the Tools menu ...\n')
  15.                 WaitPort(myport)
  16.                 DisplayBeep(NIL)
  17.                 PrintF('Wow, you found it!\n')
  18.                 RemoveAppMenuItem(appitem)
  19.                 WHILE appmsg:=GetMsg(myport) DO ReplyMsg(appmsg)
  20.             ENDIF
  21.             DeleteMsgPort(myport)
  22.         ENDIF
  23.         CloseLibrary(WorkbenchBase)
  24.     ENDIF
  25. ENDPROC
  26.